home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)tf.d64
/
proc.link'meta
< prev
next >
Wrap
Text File
|
2009-01-03
|
449b
|
20 lines
0010 //
0020 ╨╥╧├ LINK'META ├╠╧╙┼─
0030 ╒╙┼ SYSTEM
0040 SETPAGE($76)
0050 ─╔═ TASK$ ╧╞ 25
0060 ╔╞ ╨┼┼╦($8014)<>4 ╘╚┼╬
0070 ╨┴╟┼
0080 TASK$:="╠╔╬╦ ""PKG.META"""13""
0090 TASK$:+"╥╒╬ "11""13""
0100 //
0110 ╞╧╥ X#:=1 ╘╧ ╠┼╬(TASK$) ─╧
0120 ╨╧╦┼ 49151+X#,╧╥─(TASK$(X#))
0130 ┼╬─╞╧╥ X#
0140 ╨╧╦┼ $C866,$00
0150 ╨╧╦┼ $C867,$C0
0160 ╨╧╦┼ $C865,╠┼╬(TASK$)
0170 ╙╘╧╨
0180 ┼╬─╔╞
0190 ┼╬─╨╥╧├ LINK'META